Top 10k strings from Astronomer (1985)(CP Software)[a2].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
6 t$=t$+(" "
4 y+" "+(" "
4 x+" "+(" "
4 '"Type new value ";:
3 dat=dat+int:
2 x=q(i,w)-w+q(i,
2 x;"h ";y;"m ";z;"s GMT"
2 t=t*.0657098
2 t$=t$+("+"
2 o,o;"Please enter hours":
2 m+"-"+(" "
2 i$=" "+(" "
2 d+"-"+(" "
2 a=u*3.819718634
2 (lp-c(opt))*
2 (add+w))/65536
2 ";y;"' ";z;"""":
1 yl=m*lx+c:
1 yl=l1+(l2-l1)*(y2>y1):
1 y=q(i,w+w)+q(i,
1 xl=l3+(l4-l3)*(x2>x1):
1 xl=(ly-c)/m:
1 x=x-(i$="5")+(i$="8")+24
1 x=x*57.29577951
1 x=w;"below"
1 x=w;"SOUTH"
1 x;"h ";y;"m ";z;"s"
1 w;xl-x1,yl-y1
1 w;x2-x1,y2-y1:
1 w;"STAR ATLAS";:
1 w;"Please press a key correspondingto one of the choices shown. ":
1 w;"Please choose a map from 1 to 5"'
1 w;"PLEASE WAIT WHILST PROGRAM LOADS":
1 w;" POSITION
1 w;" OUTPUT IS GOING TO THE PRINTER "
1 w;" ASTRONOMER ":
1 w;" AN ERROR HAS OCCURRED ";
1 w,w;"10 AU"
1 w,w+w;"X to exit to the main menu."
1 w,o;" Press X to return to main menu"
1 w+w;"Press any key for the main menu"
1 w+w;"Press X to exit to the main menu":
1 w+w;"Press C to copy the page or";
1 w+w;"Please press a key 1-6 to choose"
1 w+w;" ";c$;" NOT RECOGNISED ":
1 w+w,w;"1 AU"
1 w'" Press X to exit to the main "'" menu or R to review the data "
1 v=v(con)*2
1 v-psp)/(mrd*
1 u=u(con)/(
1 t=t-lon*3.8197186
1 t=t+(m>w)*
1 t=t*.99727
1 t=l+lon*3.81971863
1 t=(dat-15019.5
1 t;" day";"s"
1 t333)/365.25
1 t$="time & date RA declination h d m y h m s
1 t$=" date
1 sd=d(w)/dis
1 sd=d(opt)/dis:
1 r=r-(r>w):
1 r=a(p)*(w-e(p)*e(p))/(w+e(p)*
1 r=(w-v)*372
1 r=(w-al)*252
1 r=(w+v)*372
1 r0=1.00485333
1 q=4.64111846
1 q=.4093197474
1 q(i,w),q(i,w+w),q(i,
1 pp=4.14473024
1 p=p-(p>w):
1 p=(dat-15019
1 p;o$(opt,w+w
1 opt=w+w;"?"
1 o;b$;b$;b$:
1 o;" Use the star atlas"
1 o;" Use other routines"
1 o;" NIGHT SKY VIEWS ":
1 o;" Draw night sky views"
1 o;" Change time or location"
1 o;" Calculate positions of the"'" planets, moon or sun"
1 o;" Calculate positions of minor"'" bodies of the Solar System"
1 o;" Return to the main menu"
1 o;" Find rising & setting times"''''
1 o;" Draw diagrams of the Solar","
1 o,o;"RA (h)24 20 16 12 8 4 0";
1 o,o;"Please enter year":
1 o,o;"Please enter seconds":
1 o,o;"Please enter seconds"
1 o,o;"Please enter month":
1 o,o;"Please enter minutes":
1 o,o;"Please enter minutes"
1 o,o;"Please enter hours"
1 o,o;"Please enter degrees":
1 o,o;"Please enter days"
1 o,o;"Please enter day ":
1 o,o;"Is this acceptable? Press Y or N":
1 o,o;" Press X to exit to main menu";b$:
1 o$(opt,w+w
1 o$(opt,w):
1 n=n-2.792526803e-3
1 map=-w);"0"
1 m=(y2-y1)/(x2-x1):
1 m2=m+ev-9.700539983e-3
1 m+3.735004599e-3
1 ly=l1+(l2-l1)*(y2>y1):
1 lim1=m(m):
1 l=l+ev+.1097567753
1 l=l+d*.0174532925
1 l=l+1.148950247e-2
1 l=c(opt)+z:
1 l2=(v>(p+lat))
1 l2=(v<(-p+lat))
1 l1=(v>(p-lat)):
1 l1=(v<(-p-lat)):
1 l)+(" COMET"
1 l(y)*(m>2)-31":
1 int=int+x/
1 i$="i";"OUTER"
1 i$="2";"Screen"
1 i$="1";" selected"''"Choose starting date ";:
1 f*d+1.13403578
1 ev=.0222337493
1 e=e-d/(w-e(p)*
1 dif=x-h(w):
1 dem=dem*x:
1 dat=mjd+tim/24
1 dat=mjd+tim/
1 dat=day-int:
1 dat=day-int
1 dat=dat+m(i):
1 dat=dat+d:
1 d>m(m)+(m=w+w
1 d=dat-h(opt):
1 d;"-";m;"-";y:
1 d;"-";m;"-";y'':
1 d;"-";m;"-";y'''"Position is";
1 c=y1-m*x1:
1 c;"s ";"GMT"
1 add=add0+10770
1 add=add0+10290
1 add=add0+10
1 add=add+10
1 a=nu+w(p):
1 a=l-d*1.944368345e-3
1 a=a+2401524.5
1 a=2.652035286
1 a=.2299715042
1 a+b/60+c/3600)*0.01745329252":
1 a$=a$+".0"
1 a$;" on ";d$
1 O+52.96910393
1 CALCULATED ":
1 ANDAPSAQRAQLARAARIAURBOOCAMCNCCVNCMACMICAPCARCASCENCEPCETCHACIRCOLCOMCRACRBCRVCRTCRUCYGDELDORDRAERIFORGEMGRUHERHYAHYIINDLACLEOLMILEPLIBLUPLYNLYRMONMUSOCTOPHORIPAVPEGPERPHEPICPSCPSAPUPPYXRETSGESGRSCOSCLSCTSERTAUTELTRITRATUCUMAUMIVELVIRVOLALLMAPEXICOPSUNMOOMERVENMARJUPSATURANEPPLUCERPALJUNVESHALENC
1 ;a$;" on ";d$:
1 ;"above.":
1 ;"The position of the object must now be entered.":
1 ;"Select map (
1 ;"RA (h) ";r0-2
1 ;"Dec. of ";
1 ;"Altitude";
1 ;" PRESS ANY KEY
1 5-9.24219907e-4
1 27- 9-84 19 48 49 -26 6 54 2.1D
1 01)*32753)":
1 -b+tim*1.002738
1 -6.0978848
1 -2.2711097e-4
1 +21.32991139
1 +(i$="2"):
1 *x+n(i)-48
1 *p-2.86042e-8
1 *p*p+8.775128e-9
1 *(map=-w)-w:
1 *(l-ls)-m):
1 *((i$="6")-(i$="7")):
1 )/36524.25
1 )-(x<-1200
1 )*int/p(q(i,
1 )*dif/p(q(i,
1 )*(dat-h(p))/p(p)+l(p)-w(p):
1 ) & press ENTER"
1 (y*365.25)+
1 (w-y*y/1936
1 (sd*10+.5)";""""
1 (re*re+rp*rp-2
1 (m2+.1097568*
1 (m2)-3.24282175e-3
1 (lp-c(opt)):
1 (le-l)/(re-rp*
1 (lam-l))/(re*
1 (l-le))/(rp-re*
1 (h+t)*(mrd*
1 (dis*t+.5)"/t;" AU"'':
1 (dis*dis+t*t):
1 (dis*10+.5)":
1 (dat*100+.5)/100":
1 (b+b)+.0856
1 (a*4.7+.5)":
1 (30.6001*(m+1))+d-679006":
1 (15+(lat*2/
1 (.01+dat)":
1 (.001+p))<.001"
1 ((w+e(p))/(w-e(p))):
1 ((sd-sl*sa)/t):
1 ((p-y)*60+0.5)":
1 ((a-e)/30.6001
1 ((a+532784.75
1 '''"At ";x;"h ";y;"m ";z;"s GMT on ";:
1 '''" COMETS:","
1 ''"Setting time is: ";:
1 ''"Rising time is : ";:
1 ''"Object is circumpolar & never sets at this latitude":
1 ''"Object is always below the","horizon & never rises at this latitude":
1 ''"Distance is ";
1 '"Printer"
1 '"Interval is ";x;" day";"s"
1 '"How many entries ? ";
1 '"Current time : ";x;"h ";y;"m ";z;"s GMT":
1 '"Current latitude : ";"+"
1 '"Current date : ";d;"-";m;"-";y:
1 '"Choose interval in days";" & hours"
1 '"At ";x;"h ";y;"m ";z;"s GMT on ";:
1 '"Age since new moon is ";:
1 "y*365.2422+
1 "r-24*(y-1900)":
1 "p-4715-(m>2.5)":
1 "m-12*(m>12)":
1 "g-w-12*(g>13.5)":
1 "dat/365.2422"
1 "Semi-diameter is ";
1 "SW"," W AZIMUTH NW"
1 "SE"," S AZIMUTH SW"
1 "Position is ";
1 "NW"," N AZIMUTH NE"
1 "NE"," E AZIMUTH SE"
1 "Do you wish to tabulate positionover a range of time, or find position at current date";" & time"
1 "Do you wish to examine the InnerPlanets (Mercury, Venus, Earth &Mars) or the Outer ones (JupiterSaturn, Uranus, Neptune & Pluto)"'
1 "Current longitude : ";"+"
1 "9780+10*(i$=""o"")":
1 "9500-25*ns"
1 "9000+100*opt"
1 "9.9")+a$:
1 "87-10*(i$=""o"")":
1 "77+45*y":
1 "7"'"Please press I or O ";
1 "7"'"Initial date for animation"'',:
1 "7"'"Enter time interval (in days)"'',
1 "60.086861/(1+.0549*
1 "60"*(p-x):
1 "6.6460656+s*2400.051262+s*s*2.581e-5":
1 "6";" PLANETS, MOON and SUN "''
1 "6";" ASTEROIDS and COMETS "'
1 "6","7","8","9","10"
1 "6"'"PLEASE WAIT WHILST POSITIONS OF"'"STARS ARE BEING CALCULATED
1 "57.29577951"):
1 "5500-500*(map=-1
1 "5";"Is this acceptable (Y or N) ?"
1 "5"'"Local sidereal time: ";x;"h ";y;"m ";z;"s"
1 "5"'" ASTEROIDS:","
1 "4";"X to exit or C to copy ":
1 "4";"Press any key to pause,";
1 "4"'"NB Time for the demonstration isdifferent to that in the manual-some positions are marginally altered"
1 "365.2422":
1 "362";" POLE";
1 "3.819719"):
1 "3.819718634":
1 "3.81971863"*u:
1 "3.81971863"*
1 "3";c$;"_ ":
1 "3";" Please enter command _":
1 "3","4","1","5","0"
1 "23659",o:
1 "20.5","38.3","53.0","80.8","0"
1 "20";"main menu"''"
1 "20",o;b$:
1 "20",o;"RIGHT ASCENSION";
1 "20",o;"DECLINATION
1 "16",w;"Press a key to restart program":
1 "15-l/2-3*(opt>14)":
1 "14";"RA ";:
1 "14";"RA ";
1 "14";"Dec ";"+"
1 "128+45*x",
1 "128","77","128","76","130","77","128","77","143","91"
1 "127","83","128","87","128","86","124","89","0","0"
1 "12"*(m=w):
1 "100*(1+9*(opt<6))":
1 "10.4","19.1","38.4","60.2","79.6"
1 "10",o;b$:
1 "10"*(i$="0")
1 ".89884456":
1 ".77896745":
1 ".62379485":
1 ".26179939":
1 ".017202791"*dif:
1 "(b-15019.5)/36525":
1 "(60*(z-y)+0.5)"
1 "'''"A"'"L"'"T"''''"30
1 "''" -90
1 "''" -70
1 "''" -50
1 "'"n"'" -30
1 "'"i"'"o -10
1 "'"i"'"n +30
1 "'"c"'"l +50
1 "'"a"'"t +10
1 "'"D"'"e +70
1 " ";x;" hour";"s"
1 h m s
1 Uranus"'''"
1 Pluto"'''"
1 Pallas"'',"
1 Neptune"'''"
1 Mercury","
1 Juno"'',"
1 Halley's"'',"
1 Exit to the"'," main menu"
1 Exit to the"'
1 Encke's"'''',"
1 Dec Dist
1 Ceres"'',"
1 4MOON 7MERCURY 5VENUS 4MARS 7JUPITER 6SATURN 6URANUS 7NEPTUNE 5PLUTO 5CERES 6PALLAS 4JUNO 5VESTA 8HALLEY'S7ENCKE'S
1 ";y;"' ";z;""""
1 Tabulate values on screen"''"
1 Tabulate on the printer"''"
1 Single value only"''"
1 Exit to main menu"
1 ' "" AU":